Imports CapaDeDatos
Public Class nHabilitacionOperador
    Private Calificacion As nTblCalificaciones = New nTblCalificaciones()
    Public Personal As CapaDeNegocios.nPersonal = New CapaDeNegocios.nPersonal


    Public OperHabilitacion As CapaDeDatos.dHabilitacionOperador = New CapaDeDatos.dHabilitacionOperador
    Public Function Existe(ByVal Legajo As String, ByVal CodigoCalificacion As String) As Boolean
        Return OperHabilitacion.Existe(Legajo, CodigoCalificacion)
    End Function
    Public Function Insertar(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As Boolean
        Return OperHabilitacion.Insertar(Legajo, CodigoCalificacion, FechaAlta, FechaVencimiento, Valoracion, Estado)
    End Function
    Public Function Eliminar(ByVal Legajo As String, ByVal CodigoCalificacion As String) As Boolean
        Return OperHabilitacion.Eliminar(Legajo, CodigoCalificacion)
    End Function
    Public Function Modificar(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As Boolean
        Return OperHabilitacion.Modificar(Legajo, CodigoCalificacion, FechaAlta, FechaVencimiento, Valoracion, Estado)
    End Function
    Public Function Listar(ByVal Legajo As String, ByVal CodigoCalificacion As String, ByVal FechaAlta As String, ByVal FechaVencimiento As String, ByVal Valoracion As String, ByVal Estado As String) As DataSet
        If Legajo = "-1" Then
            Legajo = ""
        End If
        If Estado = "-1" Then
            Estado = ""
        End If
        If CodigoCalificacion = "-1" Then
            CodigoCalificacion = ""
        End If

        Dim dtsPrincipal As DataSet
        dtsPrincipal = OperHabilitacion.BuscarFiltrado(Legajo, CodigoCalificacion, FechaAlta, FechaVencimiento, Valoracion, Estado)
        dtsPrincipal.Tables(0).Columns.Add("Operador")
        dtsPrincipal.Tables(0).Columns.Add("Calificacion")
        dtsPrincipal.Tables(0).Columns.Add("DescEstado")

        Dim i As Integer
        For i = 0 To dtsPrincipal.Tables(0).Rows.Count - 1
            Try
                dtsPrincipal.Tables(0).Rows(i)("Operador") = Personal.ListarPersonal(dtsPrincipal.Tables(0).Rows(i)("Legajo").ToString(), "", "", "", "", "", "", "", "", "", "").Tables(0).Rows(0)("NombreApellido").ToString()
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("Operador") = "Error, Operador no Encontrada"
            End Try
            Try
                dtsPrincipal.Tables(0).Rows(i)("Calificacion") = Calificacion.Buscar(dtsPrincipal.Tables(0).Rows(i)("CodigoCalificacion").ToString(), "", "", "", "", "", "").Tables(0).Rows(0)("Nombre").ToString()
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("Calificacion") = "Error, Calificacion no Encontrada"
            End Try
            If dtsPrincipal.Tables(0).Rows(i)("Estado").ToString() = 1 Then
                dtsPrincipal.Tables(0).Rows(i)("DescEstado") = "Habilitada"
            End If
            If dtsPrincipal.Tables(0).Rows(i)("Estado").ToString() = 2 Then
                dtsPrincipal.Tables(0).Rows(i)("DescEstado") = "DesHabilitada"
            End If
            If dtsPrincipal.Tables(0).Rows(i)("Estado").ToString() = 3 Then
                dtsPrincipal.Tables(0).Rows(i)("DescEstado") = "Vencida"
            End If
            If dtsPrincipal.Tables(0).Rows(i)("DescEstado").ToString() = "" Then
                dtsPrincipal.Tables(0).Rows(i)("DescEstado") = "Error, Estado no disponible."
            End If
        Next
        Return dtsPrincipal

        '        Return OperHabilitacion.BuscarFiltrado(Legajo, CodigoCalificacion, FechaAlta, FechaVencimiento, Valoracion, Estado)
    End Function

End Class
